(*
     The contents of this file are subject to the Mozilla Public License
     Version 1.1 (the "License"); you may not use this file except in
     compliance with the License. You may obtain a copy of the License at
     http://www.mozilla.org/MPL/

     Software distributed under the License is distributed on an "AS IS"
     basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
     License for the specific language governing rights and limitations
     under the License.

     The Original Code is CrossFPC.

     The Initial Developer of the Original Code is Simon Kissel.
     Portions created by Benjamin Rosseaux are Copyright (C) Benjamin Rosseaux.
     All Rights Reserved.

*)

unit cfcompiledialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TCompileDialog = class(TForm)
    Bevel1: TBevel;
    okButton: TButton;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    label_project: TLabel;
    label_status: TLabel;
    Bevel6: TBevel;
    Label3: TLabel;
    label_line: TLabel;
    Label5: TLabel;
    label_total: TLabel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Label7: TLabel;
    label_hints: TLabel;
    Label9: TLabel;
    label_warnings: TLabel;
    Label11: TLabel;
    label_errors: TLabel;
    Label1: TLabel;
    procedure okButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CompileDialog: TCompileDialog;

implementation

{$R *.dfm}

procedure TCompileDialog.okButtonClick(Sender: TObject);
begin
  hide;
end;

end.
